home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / heat / nifty.cfg < prev    next >
Text File  |  1991-10-18  |  7KB  |  306 lines
  1. /*********************************************************************
  2. /*
  3. /*    NIFTY.CFG : NIFTY-Serve アクセス用コンフィグ･ファイル
  4. /*
  5. /*    TABSIZE = 4;
  6. /*
  7.  
  8. /*------------------------------------------------------------------
  9. /*    Nifty-Serve DIAL
  10. /*------------------------------------------------------------------
  11. nifty_dial {
  12.  
  13.     HDL_SET = 0;    /* メタキー設定用ワーク    */
  14.  
  15. /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  16. /*    電話番号は自分で書いてね
  17. /*
  18.     DIAL     = "XX-XXXX-XXXX"    /* 電話番号を書き込んでください。
  19.     FENIX = 1;                    /* Road 2の場合は｢2｣にしてください
  20. /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  21.  
  22.     while ( _NIF_ID = "" )
  23.     {    while ( _NIF_PASSWORD = "" )
  24.         {    nif_setup()
  25.             if ( VAL ! 0 ) { return (-1) }
  26.         }
  27.     }
  28.     ID       = _NIF_ID;
  29.     PASSWORD = _NIF_PASSWORD;
  30.  
  31.     term_puts("ATZ\r")
  32.     term_switch( 5,"OK\r")
  33.     if ( VAL < 0 ) { return (-1)}
  34.  
  35. #    /* 第２モデモ初期化コマンド
  36. #    term_puts("AT%2400\r")
  37. #    term_switch( 5,"OK\r")
  38. #    if ( VAL < 0 ) { return (-1)}
  39.  
  40.     tel_call()
  41.     if ( VAL < 0 ) { return (-1)}
  42.  
  43.     if ( FENIX = 2 )
  44.     {    /*----------------------------------
  45.         /*    NIFTY-Serve FENIX ROAD 2
  46.         /*----------------------------------
  47.         RETRY = 0;
  48.         bk = 0;
  49.         while ( bk = 0 )
  50.         {    wait(1)
  51.             term_puts("@P\r")
  52.             term_switch(10,"*")
  53.             if ( VAL = 0 )
  54.             {    /* '*'    */
  55.                 bk = 1;
  56.             } else
  57.             {    inc(RETRY)
  58.                 if ( RETRY > 5 ) { return (-1) }
  59.             }
  60.         }
  61.         RERTY = 0;
  62.         bk = 0;
  63.         while ( bk = 0 )
  64.         {    wait(1)
  65.             term_puts("C NIF\r")
  66.             wait(2)
  67.             term_instr(30," Enter Connection-ID  --->","*")
  68.             if ( VAL = 0 )
  69.             {    /* Connection-ID */
  70.                 bk = 1;
  71.             } else if ( VAL = 1 )
  72.             {    /* '*'    */
  73.                 inc(RETRY)
  74.                 if ( RETRY > 30 ) { return }
  75.             } else
  76.             {    /* TIME OUT
  77.                 return (-1)
  78.             }
  79.         }
  80.     } else
  81.     {    /*----------------------------------
  82.         /*    NIFTY-Serve FENIX ROAD 1
  83.         /*----------------------------------
  84.         RERTY = 0;
  85.         bk = 0;
  86.         while ( bk = 0 )
  87.         {    wait(1)
  88.             term_puts(".00+")
  89.             term_instr(30,"Enter Connection-ID  --->",
  90.                           ".1", ".2", ".3", ".4", ".5",
  91.                           ".6", ".7", ".8", ".9",
  92.                           "NO CARRIER" )
  93.             if ( VAL = 0 )
  94.             {    /* Connection-ID */
  95.                 bk = 1;
  96.             } else if ( VAL < 10 )
  97.             {    /* '*'    */
  98.                 inc(RETRY)
  99.                 if ( RETRY > 30 ) { return }
  100.             } else
  101.             {    /* TIME OUT or "NO CARRIER"    */
  102.                 return    (-1);
  103.             }
  104.         }
  105.     }
  106.  
  107.     wait(1)
  108.     term_puts("SVC\r")
  109.  
  110.     term_switch( 30, " Enter User-ID  --->")
  111.     if ( VAL < 0 ) { return (-1)}
  112.     wait(1)
  113.     term_puts("\(ID)\r")
  114.  
  115.     term_switch( 30, " Enter Password --->")
  116.     if ( VAL < 0 ) { return (-1)}
  117.     wait(1)
  118.     term_puts("\(PASSWORD)\r")
  119.  
  120.     return    (0)
  121. }
  122.  
  123. /*--------------------------------------------------------------------
  124. /*    パレットを黒にして入力文字を見せないようにする
  125. /*
  126. str_off {
  127.     wind_size_set(x,y,32,32)
  128.     wind_open()
  129.     graph("palette",7,0,0,0)
  130. }
  131. str_on {
  132.     graph("palette",7,176,176,192)
  133.     wind_close()
  134.     wind_init()
  135. }
  136.  
  137. nif_setup {
  138.     ID       = _NIF_ID;
  139.     PASSWORD = _NIF_PASSWORD;
  140.  
  141.     if ( ID = "" )
  142.     {    ID = "";
  143.         PASSWORD = "";
  144.     }
  145.     mosget("sw","x","y")
  146.     menu_input("ID",9, x,y, C_CYAN, "NIFTY-Serve のID を入力してください。:")
  147.     if ( VAL < 0 ) {    return    (-1) }
  148.  
  149.     str_off()
  150.     menu_input("PASSWORD",9, x,y, C_YELLOW, "NIFTY-Serve のパスワードを入力してください。:" )
  151.     RET = VAL;
  152.     if ( RET < 0 ) { str_on();    return    (-1) }
  153.  
  154.  
  155.     PASSWORD2 = "";
  156.     menu_input("PASSWORD2",9, x,y, C_YELLOW, "もういちどパスワードを入力してください。" )
  157.     RET = VAL;
  158.     str_on()
  159.     if ( RET < 0 ) {    return    (-1) }
  160.  
  161.     if ( PASSWORD ! PASSWORD2 )
  162.     {    wind_open()
  163.         graph("symbol",65,56, 8,16, OPAQUE,C_RED,C_HWHITE, 1,0,0,1, "パスワードが違っています！！")
  164.         wait(5)
  165.         wind_close()
  166.         return    (-1)
  167.     }
  168.  
  169.     if ( RET < 0 ) {    return    (-1) }
  170.     strlen(PASSWORD)
  171.     LEN = VAL;
  172.     menu_yes_no(x,y,C_CYAN,"NIFTY-Serve の ID : \(ID)\x0Aパスワードは \(LEN) 文字指定されています。\x0A\x0A           よろしいですか？")
  173.     if ( VAL > 0 )
  174.     {    _NIF_ID       = ID;
  175.         _NIF_PASSWORD = PASSWORD;
  176.         return    (0)
  177.     }
  178.     return    (-1)
  179. }
  180.  
  181. /*********************************************************************
  182. /*    行入力コマンド
  183. /*    
  184. /*    【入力】    TCMD    コマンド
  185. /*
  186. TERM_cmdline {
  187.     strupr("TCMD",TCMD)
  188.     if ( TCMD = "U" )
  189.     {    NIFTY_RT_U()
  190.     } else if ( TCMD = "MYHP" )
  191.     {    NIFTY_MYHP()
  192.     }
  193.     RET = ""
  194. }
  195.  
  196. /*******************************************************************
  197. /*    オートパイロット用 入力行チェックルーチン
  198. /*******************************************************************
  199. AUTO_line {
  200.     if ( HDL_SET ! 0 )
  201.     {    /********************************/
  202.         /* ハンドル 自動設定 ルーチン    */
  203.         /********************************/
  204.         instr(TLIN,"\r")
  205.         if ( VAL > 0 )
  206.         {    get_word("TMP",TLIN,1)
  207.             if ( TMP ! "JOB" )
  208.             {    strmid("CH",TLIN,0,1)
  209.                 if ( CH = "\x28" )    /* 0x28 = '('    */
  210.                 {    HDL_SET = 0;
  211.                 } else
  212.                 {    get_word("HANDLE", TLIN, 4 );
  213.                     if ( HANDLE ! "" )
  214.                     {    if ( HANDLE ! HANDLE_MEMO )
  215.                         {    HANDLE_MEMO = HANDLE;
  216.                             if ( meta = 1 )
  217.                             {    meta_set("1",HANDLE )
  218.                             } else if ( meta = 2 )
  219.                             {    meta_set("2",HANDLE )
  220.                             } else if ( meta = 3 )
  221.                             {    meta_set("3",HANDLE )
  222.                             } else if ( meta = 4 )
  223.                             {    meta_set("4",HANDLE )
  224.                             } else if ( meta = 5 )
  225.                             {    meta_set("5",HANDLE )
  226.                             } else if ( meta = 6 )
  227.                             {    meta_set("6",HANDLE )
  228.                             } else if ( meta = 7 )
  229.                             {    meta_set("7",HANDLE )
  230.                             } else if ( meta = 8 )
  231.                             {    meta_set("8",HANDLE )
  232.                             } else if ( meta = 9 )
  233.                             {    meta_set("9",HANDLE )
  234.                             } else if ( meta = 10 )
  235.                             {    meta_set("0",HANDLE )
  236.                                 HDL_SET = 0;
  237.                             }
  238.                             inc(meta)
  239.                         }
  240.                     }
  241.                 }
  242.             }
  243.         }
  244.     }
  245. }
  246.  
  247. /*********************************************************************
  248. /*
  249. /*    RT中に "/U" を実行し，
  250. /*    表示されたハンドルをメタキーの０～９に設定する
  251. /*
  252. NIFTY_RT_U {
  253.     wind_close()
  254.     wind_init()
  255.     wind_open()
  256.  
  257.     HDL_SET = 0;
  258.     echo("NIFTY-Serve RT用 メタキーハンドル名自動設定\n\n")
  259.     echo("   '/u'を実行しメタキーにハンドル名を設定します。\n")
  260.     wait(3)
  261.     wind_close()
  262.  
  263.     HANDLE_MEMO = ""
  264.     meta = 1;
  265.     HDL_SET = 1;
  266.     term_puts("/U\r")
  267. }
  268.  
  269. NIF_ERR {
  270.     echo("\n\tなんかへん？？？\n")
  271.     wait(5)
  272.     wind_close()
  273. }
  274.  
  275. NIFTY_MYHP {
  276.     /* 自分のHPに行く    */
  277.     wind_close()
  278.     wind_init()
  279.  
  280.     echo("\n\t自分のHPにいくぜ！\n")
  281.  
  282.     wait(1)
  283.     term_puts("go HP\r")
  284.     wait(2)
  285.  
  286.     term_switch(30,"＞")
  287.     if ( VAL < 0 )    {    NIF_ERR();    return    (-1)    }
  288.     term_puts("1\r")
  289.  
  290.     term_switch(30,"：")
  291.     term_puts("\(_NIF_ID)\r")
  292.     wait(2)
  293.  
  294.     term_switch(30,"HP>","◆")
  295.     if ( VAL < 0 )    {    NIF_ERR();    return    (-1)    }
  296.     if ( VAL = 1 )    {    NIF_ERR();    return    (-1)    }
  297.  
  298.     term_puts("guest\r")
  299.     wait(2)
  300.     term_switch(30,"HP>")
  301.     if ( VAL < 0 )    {    NIF_ERR();    return    (-1)    }
  302.     term_puts("read new\r")
  303.  
  304.     wind_close()
  305. }
  306.